home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 195 / 195.d81 / b.childhood 1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  119 lines
  1. 8 poke56,56:clr:poke53371,0:poke788,49:tq=ti
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 30 sys57812"tunes1 mouse 2.1",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 32 sys57812"tunes1 font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 34 sys57812"tunes1 sid",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 35 ifti<tq+200then35
  8. 36 sys49615
  9. 38 d%(1)=74
  10. 40 fori=1to8
  11. 42 readf$(i),n$(i)
  12. 44 sys57812f$(i),dv,0:poke780,0:poke781,0:poke782,d%(i):sys65493
  13. 46 d%(i+1)=peek(175)+1:e(i)=peek(174)+256*peek(175)
  14. 48 next
  15. 50 data"rock a baby.mus","rock a bye baby"
  16. 51 data"bingo.mus","bingo"
  17. 52 data"twinkle star.mus","twinkle little star"
  18. 53 data"aunt rhody.mus","go tell aunt rhody"
  19. 54 data"this old man.mus","this old man"
  20. 55 data"muffin man.mus","the muffin man"
  21. 56 data"hokey pokey.mus","the hokey poley"
  22. 57 data"a tisket a.mus","a tisket a tasket"
  23. 64 ml=64*256:mv=ml+156:v=53248
  24. 66 pokemv+1,158
  25. 68 pokev+21,0:sysml:sysml+6,14*64
  26. 70 print"[147]":poke53272,31:sysml+126,0,38,0,24,254,255,10,7
  27. 78 sysml+30,3,36,2,9,255,9
  28. 80 sysml+30,2,35,1,8,160,2+16
  29. 88 print"[153]";
  30. 90 sysml+27,2,"loadstar proudly presents
  31. 92 [153]"sys";
  32. 94 [158]ml[170]27,3,"corky cochran's
  33. 96 sysml+27,4,"first series of childhood[159]
  34. 100 [158]ml[170]12,6,5,"usrsteptab(usrstep  int  abs +  (NULL)get (NULL)stepusrstep (NULL)usr(NULL)
  35. 102 sysml+12,6,6,"  [200]    [199]  [217] [217] [206] [209] [180][195][195]   [194]
  36. 104 [158]ml[170]12,6,7,"  atn    mid$andspc((NULL) abs(NULL)  get (NULL)spc(andspc( (NULL)and(NULL)"
  37. 112 [158]ml[170]39,160
  38. 120 [158]ml[170]30,3,26,12,23,255,9
  39. 122 [158]ml[170]30,2,25,11,22,160,5[170]16
  40. 130 [158]ml[170]30,29,36,12,23,255,9
  41. 132 [158]ml[170]30,28,35,11,22,160,5[170]16
  42. 140 [158]ml[170]12,30,12,"openplaycmdcmdcmdcmdsongcmdcmdcmdcmdcmdcmd-tantantantantantan<opencmdcmdcmdcmdcmdcmdplaycmdcmdcmdcmdall"
  43. 142 [158]ml[170]12,28,17,"-tantantantantantan<cmdcmdcmdcmdcmdcmdopensongcmdcmdcmdcmdinfocmdcmdcmdcmdcmdcmd-tantantantantantan<cmdcmdcmdcmdcmdcmdopenquit"
  44. 150 [158]ml[170]15,1,29,34,12,13
  45. 152 [158]ml[170]15,2,29,34,15,16
  46. 154 [158]ml[170]15,3,29,34,18,19
  47. 156 [158]ml[170]15,4,29,34,21,21
  48. 160 [129]i[178]1[164]8
  49. 162 [158]ml[170]12,4,12[170]i,n$(i)
  50. 164 [158]ml[170]15,4[170]i,3,24,12[170]i,12[170]i
  51. 166 [130]
  52. 200 [158]ml[170]9
  53. 204 [139]rg%[167][158]ml[170]36,rg%,255,1:[158]ml[170]24,2:[158]ml[170]36,rg%,255,3
  54. 210 [139]cr%[167]230
  55. 220 [137]200
  56. 230 [139]cr%[178]1[167][141]300:[137]200 [143] play
  57. 240 [139]cr%[178]2[167][141]400:[137]200:[143] play all
  58. 250 [139]cr%[178]3[167][141]500:[137]200:[143] info
  59. 260 [139]cr%[178]4[167][158]ml[170]3:[151]49152,0:[158]49897:[158]49935:[153]"load":[137]40000:[143] quit
  60. 268 g[178]cr%
  61. 270 [158]ml[170]30,2,25,11,22,160,5[170]16
  62. 272 [129]i[178]1[164]8
  63. 274 [158]ml[170]12,4,12[170]i,n$(i)
  64. 276 [130]
  65. 280 [158]ml[170]36,g,255,14[170]128
  66. 290 [137]200
  67. 300 [139]g[178]0[167][142]
  68. 302 p[178]1:[141]500:p[178]0
  69. 310 [151]781,0:[151]782,d%(g[171]4)
  70. 320 [158]49664:[151]49152,7
  71. 330 [158]ml[170]9
  72. 332 [139][194](49152)[178]0[167]350
  73. 340 [139]l2%[178]0[167]330
  74. 350 [151]49152,0:[158]49897
  75. 352 [158]ml[170]42,168
  76. 360 [142]
  77. 400 [129]g[178]5[164]12
  78. 410 [141]300
  79. 420 [130]
  80. 430 [142]
  81. 500 [139](g[179]1)[176](g[177]12)[167][142]
  82. 502 [158]ml[170]39,168:[158]ml[170]42,160
  83. 510 [158]ml[170]30,2,37,13,21,255,9
  84. 520 [158]ml[170]30,1,36,12,20,255,5[170]16
  85. 530 [151]214,13:[153]:[153][163]2);
  86. 540 h[178]e(g[171]4)
  87. 550 [129]i[178]h[164]h[171]200[169][171]1
  88. 560 [139][194](i)[178]1[167]s[178]i:i[178]h[171]200
  89. 570 [130]
  90. 580 [129]i[178]2[164]200:[139][194](i[170]s)[178]0[167]i[178]200:[137]590
  91. 582 [153][199]([194](i[170]s));:[139][194](i[170]s)[178]13[167][153]"";
  92. 590 [130]
  93. 592 [139]p[167][142]
  94. 600 [158]ml[170]9
  95. 610 [139]l2%[178]0[167]600
  96. 620 [158]ml[170]42,168
  97. 630 [142]
  98. 999 [137]999
  99. 10000 d[178][194](186):n$[178]"0:b.tunes1":[159]1,d,15,"s"[170]n$:[160]1:[148]n$,d:[128]
  100. 40000 [151]53269,0
  101. 40002 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  102. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  103. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  104. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  105. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  106. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  107. 40060 [130]:[142]
  108. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  109. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  110. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  111. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  112. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]8:[153]z$:[130]
  113. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  114. 60030 z$(0)[178]"len left$ right$ (NULL) str$ left$ (NULL) (NULL) str$   (NULL) (NULL) (NULL) val (NULL)  1"
  115. 60040 z$(2)[178]"by lenorky lenochran
  116. 60050 z$(4)="(c) 2000 by [202] & [198] [208]ublishing, [201]nc."
  117. 60080 z$(6)="1-318-868-8727
  118. 60090 [151]214,12:[153]:[129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  119.